#!/usr/bin/perl
use English;

$t = "abc-123-.-45-?-ijk";
$muster = '\d+';
while ($t =~ m/$muster/go) {
        $muster = '\w+';
        print $MATCH . "\n";
}
